home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / ham_dtmf / ham-dtmf.bas < prev    next >
BASIC Source File  |  1993-01-09  |  2KB  |  53 lines
  1. 0 REM-THIS PROGRAM WORKS WITH A 1200 DC HAYES TYPE MODEM TO PROGRAM AN SCOM/
  2. 1 REM-RLC-6 REPEATER CONTROLLER.  TAKE THE AUDIO OUTPUT FROM TWO CENTRE
  3. 2 REM-CONNECTIONS ON THE MODULAR PLUG ON THE MODEM.  PAD THEM DOWN TO SUIT
  4. 3 REM-YOUR RADIO.  PUT YOUR COMMANDS IN THE DATA STATEMENTS AT THE END OF
  5. 4 REM-THE PROGRAM.  MAXIMUM STRING LENGTH IS 38 INCLUDING THE ; .ALSO, FORCE DTR HIGH.
  6. 5 REM-HEREBY PLACED IN THE PUBLIC DOMAIN...BY BOB SUEK, VE5AG...DEC 29, 1992
  7. 10 CLS : KEY OFF : FOR A = 1 TO 10 : KEY A,"" : NEXT : DEF SEG : POKE 106,0
  8. 15 PRINT : PRINT : M$ = "ATDT" : REM MODEM SETUP
  9. 20 OPEN "COM1:1200,N,8,1" AS #1
  10. 25 PRINT #1, "AT Z":FOR A = 1 TO 5000: NEXT: VV$=INPUT$(5,#1)
  11. 27 PRINT #1, "AT S0=0 S10=255 S11=52":FOR A=1 TO 5000:NEXT A:VV$=INPUT$(23,#1)
  12. 30 REM SCREEN STUFF
  13. 40 LOCATE 3,25 : COLOR 9,0 : PRINT "REPEATER CONTROLLER PROGRAMMER"
  14. 50 LOCATE 6,15 : COLOR 10,0 : PRINT "Make sure MODEM is plugged into radio and PTT on..."
  15. 60 LOCATE 25,13 : COLOR 8,7 : PRINT "Press <space bar> to START PROGRAMMING or <Esc> to end";
  16. 70 K$ = INKEY$ : IF K$ = "" THEN 70
  17. 80 IF ASC(K$) = 27 THEN COLOR 7,0 : CLS : GOTO 430
  18. 90 IF ASC(K$) = 32 THEN 200
  19. 100 GOTO 70
  20. 200 FOR A = 1 TO 1500 : NEXT
  21. 210 LOCATE 25,13: COLOR 8,7 : PRINT "Programming Repeater  -  Please wait for BEEP........."
  22. 220 COLOR 7,0:PRINT"==================================CODE COMMENTS=================================": REM MODEM OUPUT ROUTINE
  23. 230 FOR MDLOOP = 1 TO 9999
  24. 240 READ A$,I$ : IF A$ = "ENDDATA" THEN GOTO 420
  25. 250 L = LEN(A$) - 1
  26. 260 PRINT #1,M$;A$ :GOSUB 370:GOSUB 300
  27. 270 NEXT MDLOOP
  28. 300 REM WAIT ROUTINE
  29. 310 TWIDDLE = (.11 * L) + .1 : REM SETS CHARACTOR COUNT DELAY
  30. 320 IF MDLOOP = 1 THEN TWIDDLE = 7 : REM SETS FIRST STRING DELAY, NEEDS TO BE LONG
  31. 330 X = TIMER
  32. 340 Y = TIMER
  33. 350 IF (Y - X) < TWIDDLE THEN GOTO 340
  34. 360 RETURN
  35. 370 REM INCOM ROUTINE
  36. 380 IF EOF(1) THEN FOR A = 1 TO 200 :NEXT A:GOTO 380 ELSE 390
  37. 390 WW$=INPUT$(1,#1):PRINT WW$;
  38. 400 IF WW$=CHR$(13) THEN PRINT "   ="I$:GOTO 410 ELSE GOTO 380
  39. 410 RETURN
  40. 420 REM CLEANUP ROUTINE
  41. 430 BEEP :FOR D=1 TO 3000:NEXT D: BEEP :FOR D=1 TO 3000:NEXT D: BEEP
  42. 440 CLS : LOCATE 23,25 : COLOR 8,7 : PRINT "Programming completed...";
  43. 450 FOR A = 1 TO 6500 : NEXT : PRINT #1, "+++"; : FOR A = 1 TO 2500 : NEXT : PRINT #1, "AT H"
  44. 460 CLOSE : COLOR 7,0
  45. 470 SYSTEM
  46. 500 REM PROGRAM CODES FOLLOW:
  47. 510 REM
  48. 520 DATA "123*;","PUT DISCRIPTER HERE"
  49. 2780 DATA "ENDDATA","DITTO"
  50. 2790 END
  51. 2800 REM   END  (coding by Bob Suek, VE5AG)"
  52. 
  53.